#!/usr/local/bin/perl -w
use strict;
use utf8;
use lib '../lib';

use NG::Sys::App qw(
NG::Sys::Loop::Cgi
);

my $t;
my $app = new NG::Sys::App();
$app->run;

sub on_prepare_loop {
	my ($app) = @_;
	$t = $app->template_tt->read("demo");
}


sub cmd_default {
	my ($app,$form,$obj) = @_;
	$form->{data}{test} = "Здравствуй, Мир!";
	$form->process($t);
}
